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; Version: *v04-000' 


define type protection 
eyword system,value 
keyword group,value 
keyword owner ,value 
keyword world,value 


define verb append 

image copy 

parameter pi, label=infile, prompt="From'’, 
value(required, List, impcat, type=$Sinfile) 

parameter p2, Label=outfile, prompt="'To"’, 
value(required, type=Sout file) 

qualifier allocation, value(requireds placement=positional 

qualifier contiguous, placement=positional 

qualifier extension, value(required), placement=positional 

qualifier file_maximum, value(required, list), placement=positional 

qualifier new_version, 

qualifier protection, value(required,list,type=protection), 
placement=positiona 

qualifier read.check, placement=positional 


° 
qualifier write check, placement=positional 
qualifier confirm 
qualifier exclude,value(list) 
qualifier before, value(default=today) 
qua er since, value(default=today 
er create 
er modified 
er expired 


er backup 
er by_owner,value(type=$uic) 


define syntax co sing_pi 
Tnage Socktrens’” , 


define verb copy 
image copy 2 F 
parameter pl, label=infile, prompt="‘From'’, 
value(required, list, impcat ,type=Sinfile) 
parameter p2,label=outfile, prompt="To'’, 
value(required. type=Sout file) 
qualifier allocation, value(required,list), placement=positional 
qualifier concatenate, default 


qualifier contiguous, placement=positional 

qualifier extension, value(required), placement=positional 

qualifier file maximum, value(required), placement=positional 

qualifier over ay placement=pos tional 

qualifier protec fon, value(requ red. list, type=protection), 
placement=positional 

qualifier read_check, placement=positional 

qualifier replace, placement=positional 

qualifier log 
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ad fr uetuetrequired? 
write check, placement=positional 
truncate, placement=positional 
confirm 
exclude,value(list) 
be are. pies Oy rey, vovedey? 
since, value(default=today 
created 
modi fi 
expired 
ackup 
by_owner ,value(type=$uic) 
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